home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 June
/
CHIP Turkiye Haziran 1997.iso
/
shar
/
95crowd
/
_setup.1
/
Crowd.exe
/
0
/
RCDATA
/
TFRMMAIN
/
TFRMMAIN.txt
< prev
Wrap
Text File
|
1996-09-03
|
31KB
|
939 lines
object frmMain: TfrmMain
Left = 13
Top = 46
HelpContext = 700
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Crowd Control'
ClientHeight = 355
ClientWidth = 595
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 0
Top = 0
Width = 595
Height = 57
Align = alTop
Style = bsRaised
end
object Bevel2: TBevel
Left = 211
Top = 3
Width = 377
Height = 51
end
object SpeedButton1: TSpeedButton
Left = 12
Top = 6
Width = 78
Height = 45
Caption = 'Add User'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888
7777777770000008777777777022220877777777702222087777777770222208
8888700000222200000870222222222222087022222222222208702222222222
2208700000222200000877777022220777777777702222077777777770222207
7777777770222207777777777000000777777777777777777777}
Layout = blGlyphTop
ParentFont = False
OnClick = NewUserWizard1Click
end
object SpeedButton2: TSpeedButton
Left = 100
Top = 6
Width = 78
Height = 45
Caption = 'Remove User'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000586078009098
A800000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000C8D0D800A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303F8F80303030303030303030303030303030303FF03030303030303030303
0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
010101F8030303030303030303F8FF030303030303FFF8030303030303030303
030101010101F80303030303030303030303F8FF0303030303F8030303030303
0303030303F901010101F8030303030303030303030303F8FF030303F8030303
0303030303030303F90101010101F8030303030303030303030303F803030303
F8FF030303030303030303F9010101F8010101F803030303030303030303F803
03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
03030303030303030303030303030303030303030303030303F8F8F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
OnClick = RemoveUser1Click
end
object bevelOnOff: TBevel
Left = 222
Top = 7
Width = 41
Height = 43
Style = bsRaised
end
object imgOnOff: TImage
Left = 226
Top = 13
Width = 32
Height = 32
Hint = 'Click Here to Turn Crowd Control On and Off'
AutoSize = True
ParentShowHint = False
ShowHint = True
OnClick = imgOnOffClick
end
object imgOn: TImage
Left = 504
Top = 8
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image000.ico>}
Visible = False
end
object imgOff: TImage
Left = 541
Top = 8
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image001.ico>}
Visible = False
end
object lblOnOff: TLabel
Left = 274
Top = 24
Width = 3
Height = 13
Transparent = True
end
object Label2: TLabel
Left = 12
Top = 75
Width = 76
Height = 13
Caption = 'Selected User: '
end
object lblSelection: TLabel
Left = 90
Top = 75
Width = 5
Height = 13
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object PageControl1: TPageControl
Left = 225
Top = 69
Width = 364
Height = 276
HelpContext = 700
ActivePage = TabSheet1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MultiLine = True
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
HelpContext = 500
Caption = 'User'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object Label1: TLabel
Left = 39
Top = 26
Width = 31
Height = 13
Caption = 'Name:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lblName: TLabel
Left = 135
Top = 26
Width = 178
Height = 13
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 39
Top = 60
Width = 49
Height = 13
Caption = 'User Icon:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object bevelIcon: TBevel
Left = 135
Top = 51
Width = 38
Height = 38
Style = bsRaised
end
object imgUserIcon: TImage
Left = 138
Top = 54
Width = 32
Height = 32
Hint = 'Click Here to Select Another User Icon'
ParentShowHint = False
ShowHint = True
OnClick = GetUserIcon
OnDblClick = GetUserIcon
OnMouseDown = IconMouseDown
OnMouseUp = IconMouseUp
end
object Label5: TLabel
Left = 40
Top = 112
Width = 289
Height = 49
AutoSize = False
Caption =
'Changes made to a user'#39's settings will not take effect until Win' +
'dows is restarted or a new user logs on.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label12: TLabel
Left = 192
Top = 56
Width = 153
Height = 33
AutoSize = False
Caption = 'Click the picture to select a different icon for this user'
WordWrap = True
end
object lblEvalVersion: TLabel
Left = 72
Top = 169
Width = 218
Height = 29
Caption = 'Evaluation Version'
Font.Color = clRed
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
end
object TabSheet2: TTabSheet
HelpContext = 505
Caption = 'Programs'
object Label9: TLabel
Left = 24
Top = 15
Width = 316
Height = 58
AutoSize = False
Caption =
'To limit the user to certain applications, check the box below. ' +
' Then click the Add Program button to add applications to the li' +
'st of programs the user may run. If this option is selected, t' +
'he user will only be able to run the listed programs.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object chkRestrictApps: TCheckBox
Left = 26
Top = 77
Width = 251
Height = 17
Caption = 'Only Run Listed Applications'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = chkRestrictAppsClick
end
object lstApplications: TListBox
Left = 24
Top = 104
Width = 161
Height = 113
ItemHeight = 13
TabOrder = 1
end
object btnRemoveApplication: TBitBtn
Left = 202
Top = 136
Width = 135
Height = 28
Caption = 'Remove Application'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnRemoveApplicationClick
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007788777777777777700000007911877777987777700000007911
1877791187777000000079111187911118777000000077911118111118777000
0000777911111111877770000000777791111118777770000000777771111187
7777700000007777791111877777700000007777911111877777700000007779
1118111877777000000077911187911187777000000077911877791118777000
0000777917777791117770000000777777777779197770000000777777777777
777770000000}
Margin = 6
Spacing = -1
end
object btnAddApplication: TBitBtn
Left = 202
Top = 104
Width = 135
Height = 28
Caption = 'Add Application'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnAddApplicationClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888
7777777770000008777777777022220877777777702222087777777770222208
8888700000222200000870222222222222087022222222222208702222222222
2208700000222200000877777022220777777777702222077777777770222207
7777777770222207777777777000000777777777777777777777}
Margin = 6
Spacing = -1
end
end
object TabSheet3: TTabSheet
HelpContext = 510
Caption = 'Win 95 Restrictions'
object Label6: TLabel
Left = 32
Top = 14
Width = 228
Height = 13
Caption = 'Select Restrictions that should apply to this user:'
end
object chkNoRun: TCheckBox
Left = 38
Top = 38
Width = 267
Height = 17
Caption = 'Disable '#39'Run'#39' Command on Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = chkNoRunClick
end
object chkNoFind: TCheckBox
Left = 38
Top = 61
Width = 276
Height = 17
Caption = 'Remove '#39'Find'#39' Command From Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = chkNoFindClick
end
object chkNoDesktop: TCheckBox
Left = 38
Top = 107
Width = 267
Height = 17
Caption = 'Hide All Items on Desktop'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = chkNoDesktopClick
end
object chkNoSettings: TCheckBox
Left = 38
Top = 84
Width = 267
Height = 17
Caption = 'Disable '#39'Settings'#39' Command on Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = chkNoSettingsClick
end
object chkNoRegEdit: TCheckBox
Left = 38
Top = 129
Width = 267
Height = 17
Caption = 'Disable Registry Editing Tools'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = chkNoRegEditClick
end
object chkNoDOS: TCheckBox
Left = 38
Top = 152
Width = 267
Height = 17
Caption = 'Disable MS-DOS prompt'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = chkNoDOSClick
end
object chkNoSDOM: TCheckBox
Left = 38
Top = 175
Width = 267
Height = 17
Caption = 'Disable Single-Mode MS-DOS Applications'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = chkNoSDOMClick
end
object chkNoConfigure: TCheckBox
Left = 38
Top = 198
Width = 281
Height = 18
Caption = 'Disable System Configuration Settings in Control Panel'
TabOrder = 7
OnClick = chkNoConfigureClick
end
end
object TabSheet5: TTabSheet
HelpContext = 520
Caption = 'Hidden Drives'
object Label17: TLabel
Left = 16
Top = 17
Width = 262
Height = 13
Caption = 'Select drives to hide from the user in Windows Explorer '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 189
Top = 46
Width = 146
Height = 91
Caption =
'The selected drives will not be displayed in Windows Explorer or' +
' the common file dialogs. This makes it difficult for the user ' +
'to accidentally delete or modify files on the selected drives. '
WordWrap = True
end
object lstHideDrives: TDriveList
Left = 16
Top = 48
Width = 161
Height = 121
ExtendedSelect = False
ItemHeight = 13
Items.Strings = (
'a:'
'c: []')
MultiSelect = True
Style = lbOwnerDrawFixed
TabOrder = 0
OnClick = lstHideDrivesClick
end
end
object TabSheet6: TTabSheet
Caption = 'Control Panel'
TabVisible = False
object Label10: TLabel
Left = 56
Top = 105
Width = 192
Height = 13
Caption = 'Memory Settings in System Control Panel'
end
object chkRestrictDisplay: TCheckBox
Left = 40
Top = 32
Width = 273
Height = 17
Caption = 'Hide Settings Page on Display Control Panel'
TabOrder = 0
OnClick = chkRestrictDisplayClick
end
object chkPrinters: TCheckBox
Left = 40
Top = 61
Width = 217
Height = 17
Caption = 'Disable Addition and Deletion of Printers'
TabOrder = 1
OnClick = chkPrintersClick
end
object chkRestrictSystem: TCheckBox
Left = 40
Top = 87
Width = 281
Height = 18
Caption = 'Disable Device Manager, File System and Virtual '
TabOrder = 2
OnClick = chkRestrictSystemClick
end
object chkNetSettings: TCheckBox
Left = 40
Top = 128
Width = 217
Height = 17
Caption = 'Disable Network Control Panel'
TabOrder = 3
OnClick = chkNetSettingsClick
end
object chkPasswordSettings: TCheckBox
Left = 40
Top = 160
Width = 289
Height = 17
Caption = 'Hide all Password Settings Except '#39'Change Password'#39
TabOrder = 4
OnClick = chkPasswordSettingsClick
end
end
object TabSheet7: TTabSheet
HelpContext = 515
Caption = 'Win 95 Folders'
object btnBrowseDir: TSpeedButton
Left = 299
Top = 35
Width = 24
Height = 24
Hint = 'Select a New Folder'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777770077007700777777007700770
0777777007700770077777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = btnBrowseDirClick
end
object btnExploreCustomFolder: TSpeedButton
Left = 324
Top = 35
Width = 24
Height = 24
Hint = 'Explore Folder'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
0077777777777774EC0777777777774ECC077000000004ECC077833333334ECC
33078FB780087CC3B3078F787E70833B73078F8FE7E703B7B3078F8EFE7E037B
73078F8FEFE708B7B3078F78FEF08B7B73078FB78808B7B7B3078FFFFFFFFFFF
F30787B7B7B788888877787B7B78777777777788888777777777}
ParentShowHint = False
ShowHint = True
OnClick = btnExploreCustomFolderClick
end
object Label3: TLabel
Left = 20
Top = 12
Width = 65
Height = 13
Caption = 'Select Folder:'
end
object comboFolders: TComboBox
Left = 96
Top = 9
Width = 169
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Program Folder'
'Start Menu Folder'
'Desktop Folder'
'Favorites Folder'
'Recent Folder')
TabOrder = 0
OnClick = comboFoldersClick
end
object txtFolderPath: TEdit
Left = 16
Top = 37
Width = 276
Height = 21
Color = clBtnFace
ReadOnly = True
TabOrder = 1
end
object fvCustomFolder: TFolderView
Tag = 109
Left = 15
Top = 64
Width = 209
Height = 161
ReadOnly = True
HideSelection = False
Indent = 19
ParentColor = False
TabOrder = 2
Images = fvCustomFolder.
end
object btnAddShortcut: TBitBtn
Left = 232
Top = 66
Width = 116
Height = 28
Caption = 'Add Shortcut'
TabOrder = 3
OnClick = btnAddShortcutClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777700000000000777778FFFFFFFFF
0777778FFF0FFFFF0777778FF0FFFFFF0777778FF00FFFFF0777778FF000F0FF
0777778FFF0000FF0777778FFFF000FF0777778FFF0000FF0777778FFFFFFFFF
0777778888888888077777777777777777777777777777777777}
Margin = 6
Spacing = -1
end
object btnAddFolder: TBitBtn
Left = 232
Top = 102
Width = 116
Height = 28
Caption = 'Add Folder'
TabOrder = 4
OnClick = btnAddFolderClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777000000000000077833333333333
33078FB7B7B7B7B7B3078F7B7B7B7B7B73078FB7B7B7B7B7B3078F7B7B7B7B7B
73078FB7B7B7B7B7B3078F7B7B7B7B7B73078FB7B7B7B7B7B3078FFFFFFFFFFF
F30787B7B7B788888877787B7B78777777777788888777777777}
Margin = 6
Spacing = -1
end
object btnRemoveItem: TBitBtn
Left = 232
Top = 137
Width = 116
Height = 28
Caption = 'Remove Item'
TabOrder = 5
OnClick = btnRemoveItemClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000586078009098
A800000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000C8D0D800A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303F8F80303030303030303030303030303030303FF03030303030303030303
0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
010101F8030303030303030303F8FF030303030303FFF8030303030303030303
030101010101F80303030303030303030303F8FF0303030303F8030303030303
0303030303F901010101F8030303030303030303030303F8FF030303F8030303
0303030303030303F90101010101F8030303030303030303030303F803030303
F8FF030303030303030303F9010101F8010101F803030303030303030303F803
03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
03030303030303030303030303030303030303030303030303F8F8F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
Margin = 6
NumGlyphs = 2
Spacing = -1
end
object btnAdvanced: TBitBtn
Left = 232
Top = 173
Width = 116
Height = 28
Caption = 'Advanced'
TabOrder = 6
Visible = False
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4FFFFFF4
FFFFFFF44FFFFFF44FFFFF444FFFFFF444FFF44444444444444F444444444444
4444F44444444444444FFF444FFFFFF444FFFFF44FFFFFF44FFFFFFF4FFFFFF4
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
Margin = 6
Spacing = -1
end
end
end
object lvUsers: TListView
Left = 7
Top = 92
Width = 206
Height = 255
Columns = <>
ReadOnly = True
HideSelection = False
OnChange = lvUsersChange
TabOrder = 1
end
object MainMenu1: TMainMenu
Left = 384
Top = 8
object CrowdControl1: TMenuItem
Caption = '&Crowd Control'
ShortCut = 0
object AddUser1: TMenuItem
Caption = '&Add User'
ShortCut = 16449
OnClick = NewUserWizard1Click
end
object RemoveUser1: TMenuItem
Caption = '&Remove User'
ShortCut = 0
OnClick = RemoveUser1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object CrowdControlPassword1: TMenuItem
Caption = '&Crowd Control Password'
ShortCut = 0
OnClick = CrowdControlPassword1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object HelpTopics1: TMenuItem
Caption = '&Help Contents'
ShortCut = 0
OnClick = HelpTopics1Click
end
object OrderingCrowdControl1: TMenuItem
Caption = '&Ordering Crowd Control'
ShortCut = 0
OnClick = OrderingCrowdControl1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object AboutCrowdControl1: TMenuItem
Caption = '&About Crowd Control'
ShortCut = 0
OnClick = AboutCrowdControl1Click
end
end
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Options = [ofFileMustExist]
Left = 413
Top = 8
end
object LargeUsers: TImageList
Height = 32
Width = 32
Left = 354
Top = 8
end
object Timer1: TTimer
Enabled = False
Interval = 750
OnTimer = Timer1Timer
Left = 443
Top = 8
end
object BrowseDir1: TBrowseDirectoryDlg
Root = idDrives
Options = [bfDirectoriesOnly]
Left = 472
Top = 8
end
object JustOne321: TJustOne32
Left = 325
Top = 8
end
end